﻿Public Class CMDPanel
    Private Sub EnsureMinimumSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ResizeEnd
        If Me.Width <= 300 Then
            Me.Width = 300
            PAD.Width = Me.Width - 17
        End If
        If Me.Height <= 300 Then
            Me.Height = 300
            PAD.Height = Me.Height - 35
        End If
    End Sub

    Private Sub Resizepad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        PAD.Height = Me.Height - 35
        PAD.Width = Me.Width - 17
    End Sub
End Class